home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 69 / 069.d81 / photo safari (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  169 lines
  1. 2 ifa%=0thenpoke52,128:poke56,128:clr:gosub308
  2. 4 a%=a%+1:ifa%<3thenload"ss.ml"+right$(str$(a%),1),8,1
  3. 6 poke56576,197:poke53272,8
  4. 8 poke648,128:goto176
  5. 10 syss(.):syss(8),v(9):poke54290,128:h=.:ifl=othenpokev(2),.
  6. 12 q=50-l*3:ifq<25thenq=25
  7. 14 syss(o):e=peek(v(8)):onegoto18,26,20,16
  8. 16 syss(8),v(9):poke54290,128
  9. 18 fori=.toq:next:goto14
  10. 20 i=.:poke53269,6
  11. 22 i=o-i:poke33785,189+i:poke33786,184+i:poket,peek(t)-8:pokeu,peek(u)+8
  12. 24 forj=1to50:next:ifpeek(t)>8andpeek(u)<210then22
  13. 26 fori=.to500:next:p=32-peek(v(3)):poke53269,.:syss(9):print"[147]":poke53264,.
  14. 28 poke53271,o:poke53277,o:poke53276,o:poke198,.
  15. 30 ife=2thenprint" you're out of film!":goto34
  16. 32 print" the monkey took your camera!":g=g+o
  17. 34 print"[158] returning home...":gosub88:poke53280,11:poke53281,15
  18. 36 print"[147]well, let's see what you've got for me  this time..."
  19. 38 print" (press space or fire...)":gosub82
  20. 40 print"[147]":poke53281,5:syss(4):i=-o
  21. 42 printd$e$:i=i+o:ifi=pthen94
  22. 44 pokev(8),i:syss(5):poke53275,o:a=int(peek(33784)/2-80):ifa<.thena=14
  23. 46 c=21-peek(v(8)):z=d(a):d=z*c/20:ifa>11thenpoke53275,.
  24. 48 j=peek(v)-160:k=peek(w)-112:ifk<y(a)thenk=k*2:goto52
  25. 50 ifk<3andj=.andpeek(33107)<>32thenpoke53275,.
  26. 52 r=o-(j^2+k^2)^.5/64:ifr<.thenr=.
  27. 54 r=r*r:d=int(d*r+.5):b=b+d:s=s+d:f=.:a=a-(a>6):a=int(a/2):a(a)=a(a)+o
  28. 56 ifa(a)>9andz>.thenj=d:d=int(d/2):b=b-j+d:s=s-j+d:f=int(rnd(o)*2+18):goto78
  29. 58 ifz>.thenz=d/z
  30. 60 ifz<.75then68
  31. 62 f=int(rnd(o)*2):ifh>6thenf=f+5:goto78
  32. 64 f=f+o:ifz<.9thenf=f+2
  33. 66 goto78
  34. 68 ifd=.andrnd(o)>.5thenf=15:goto78
  35. 70 j=int(rnd(o)*2):ifh>.andh<5thenf=j+13:goto78
  36. 72 ifr<.3thenf=j+7:goto78
  37. 74 ifc<16thenf=j+9:goto78
  38. 76 ifz<.25thenf=j+11
  39. 78 a$=str$(d):a$=right$(a$,len(a$)-o)
  40. 80 printd$c$(f)tab(35)"$"a$"";:h=f:gosub82:goto42
  41. 82 syss(6):j=peek(v(8)):if(jand16)=.then82
  42. 84 syss(6):j=peek(v(8)):if(jand16)then84
  43. 86 return
  44. 88 poke54296,15:poke54277,16:poke54278,.:fori=5to9:poke54272,.:poke54273,i
  45. 90 forj=.to240step24:poke54272,j:poke54276,129:poke54276,128:fork=1to80-6*i
  46. 92 nextk,j,i:return
  47. 94 ife<>3then102
  48. 96 printd$e$:syss(7):poke53275,.:poke53287,10:poke33784,189
  49. 98 pokev,160:pokew,112:poke53269,o:printd$c$(int(rnd(o)*3+15))"";
  50. 100 gosub82
  51. 102 poke53269,.:syss(3):a$=str$(b):a$=right$(a$,len(a$)-o)
  52. 104 poke53280,11:poke53281,0:print"[147]"tab(13)"[154]money    $"a$:ifg=3then122
  53. 106 ife=3thenb=b-500:printtab(13)"[154]camera   [158]- 500"
  54. 108 printtab(13)"[154]film     [158]-  10":printtab(13)"[154]trip     [158]-1000":b=b-1010
  55. 110 printtab(22)"[154]------":a$=str$(b):a$=right$(a$,len(a$)-o)
  56. 112 ifb<.thenprinttab(21)"-";
  57. 114 printtab(22)"$"a$
  58. 116 ifb<.thenprinttab(7)"you can't afford the trip!":b=b+1000:goto124
  59. 118 print"[154]   your chopper is ready and waiting.":fori=.to7:a(i)=.:next:l=l+o
  60. 120 printtab(6)"[156]voyage"l"into the jungle...":gosub88:goto10
  61. 122 print"    you have lost too many cameras!!"
  62. 124 ifs>99999thens=99999
  63. 126 fori=1to2000:next:a$=str$(s):i=len(a$):a$="final score:"+a$:i=int(14-i/2)
  64. 128 print"[147]"tab(i)a$:ifs=<h(9)thengosub82:goto150
  65. 130 j=9:fori=9to.step-o:ifs>h(i)thenj=i
  66. 132 next:ifj=9then136
  67. 134 fori=9toj+ostep-o:h(i)=h(i-o):n$(i)=n$(i-o):next
  68. 136 h(j)=s:n$(j)="":i=.:k=5:print"   you have made it into the top ten!"
  69. 138 print"   your name please: [151]................[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  70. 140 printchr$(k)".[157]";:k=156-k:geta$:ifa$=""then140
  71. 142 ifa$=chr$(20)andi>.thenprint"[151].[157][157]";:i=i-o:n$(j)=left$(n$(j),i):goto140
  72. 144 ifa$=chr$(13)andi>.then150
  73. 146 ifi=15or(a$<"-"anda$<>" ")or(a$>"9"anda$<"a")ora$>"_"then140
  74. 148 printa$;:n$(j)=n$(j)+a$:i=i+o:goto140
  75. 150 poke53280,.:poke53281,.:print"[147]";
  76. 152 fori=.to5:printtab(9)"[156]****  top scores  [156]****":next:print"";:fori=.to4
  77. 154 printe$:next:print"":k=22:fori=.to9
  78. 156 a$=str$(h(i)):a$=left$("00000",6-len(a$))+right$(a$,len(a$)-o)
  79. 158 a$="[159]"+n$(i)+left$(e$,15-len(n$(i)))+"  "+a$
  80. 160 ifi<>2*int(i/2)then166
  81. 162 forj=otok:printright$(a$,j)"[145]":next
  82. 164 forj=oto9:printleft$(e$,j)a$"[145]":next:goto170
  83. 166 forj=otok:printtab(39-j)left$(a$,j)"[145]":next:forj=38-kto9step-o
  84. 168 printtab(j)a$" [145]":next
  85. 170 print:next:i=99
  86. 172 syss(6):j=peek(v(8)):if(jand16)=.then218
  87. 174 i=i-o:ifi>.then172
  88. 176 print"[147]"chr$(142):poke53280,11:poke53281,.
  89. 178 pokev(4),.:pokev(5),10:pokev(6),.:pokev(7),11
  90. 180 poke54277,.:poke54278,48:poke54296,143:poke54276,33:fori=.to255step5
  91. 182 poke54273,i:next:poke54276,32:syss(2):fori=10to250step10:pokev(5),i:next
  92. 184 poke54273,40:poke54276,129:poke54276,128:fori=250to10step-10:pokev(5),i:next
  93. 186 syss(3):poke53281,.:poke54273,15:poke54276,129:poke54276,128
  94. 188 print"[147][153]"tab(14)"[164][164][164][164][164][164][164][164][164][164][164][164]"chr$(13)tab(12)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  95. 190 printtab(7)"[159][164][175][185][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][185][175][164]"
  96. 192 printtab(7)"  p h o t o[160][160][160]s[160]a[160]f[160]a[160]r[160]i "
  97. 194 printtab(7)"[154][163][183][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][183][163]"
  98. 196 printtab(14)"[164][164][164][164][164][164][164][164][164][164][164][164]"chr$(13)tab(12)"[145][145][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  99. 198 printtab(10)"[154]@'89 by jon mattson"
  100. 200 printtab(10)"[156]use port [159]2 [156]joystick"
  101. 202 printtab(10)"[150]keys:    [158]i    [150]space"
  102. 204 printtab(18)"[158]u o     =":printtab(17)"[158]j   k  [150]fire[209]"
  103. 206 printtab(18)"[158]n ,":printtab(19)"[158]m":printtab(10)"[156]press [150]fire [156]to start"
  104. 208 printtab(11)"[156]press '[150]q[156]' to quit":fori=.to500:next:i=150
  105. 210 syss(6):j=peek(v(8)):if(jand16)=.then218
  106. 212 geta$:ifa$="q"then222
  107. 214 i=i-o:ifi>.then210
  108. 216 goto150
  109. 218 pokev(.),12:pokev(o),3:b=1010:e=o:g=.:h=.:l=.:s=.:i=peek(53278)
  110. 220 fori=54272to54295:pokei,.:next:goto102
  111. 222 print"[147][150]quit? are you sure [y[150]/n[150]]? ";
  112. 224 geta$:ifa$="n"then176
  113. 226 ifa$<>"y"then224
  114. 228 printa$:print"[159]save high scores [[154]y[159]/[154]n[159]]? ";
  115. 230 geta$:ifa$="n"then242
  116. 232 ifa$<>"y"then230
  117. 234 open15,8,15:print#15,"s0:ss.hi":input#15,j:ifj>oandj<>62then240
  118. 236 open2,8,2,"0:ss.hi,s,w":input#15,j:ifj>.then240
  119. 238 fori=.to9:print#2,n$(i):print#2,h(i):next
  120. 240 close2:close15
  121. 242 poke56576,199:poke53272,21:poke648,4:print"[154][147]";:poke53280,14:poke53281,6
  122. 244 poke52,160:poke56,160:clr:goto326
  123. 246 dima(7),d(14),h(9),s(9),v(9),y(14),c$(19),n$(9)
  124. 248 fori=.to7:s(i)=38094+3*i:v(i)=s(.)+24+i:next:s(8)=52222:s(9)=52225
  125. 250 v(8)=780:v(9)=45760:o=1:v=53248:w=v+o:t=v+4:u=v+5:i=rnd(-ti)
  126. 252 a=.:b=.:c=.:d=.:e=.:f=.:g=.:h=.:j=.:k=.:l=.:p=.:q=.:r=.:s=.:z=.
  127. 254 fori=.to14:readd(i),y(i):next:d$="":fori=1to23:d$=d$+"":next:d$=d$+" "
  128. 256 fori=1to38:e$=e$+" ":next:fori=.to19:readc$(i):next
  129. 258 data 90,-4,90,-4,60,-12,60,-12,120,-4,120,-4,140,-10,180,-2,180,-2
  130. 260 data 50,-4,50,-4,100,-4,100,-4,0,-99,0,-99
  131. 262 data "[151]hmmm..."
  132. 264 data "humph. not half bad."
  133. 266 data "hey, that's almost good..."
  134. 268 data "[149]well, it's not yOur best, but..."
  135. 270 data "[149]you might just earn your keep."
  136. 272 data "[153]well, you're getting better..."
  137. 274 data "[153]there may be hope for you yet."
  138. 276 data "[158]now there's a novel angle..."
  139. 278 data "[158]an animal almost got in the way!"
  140. 280 data "[158]ever think of taking up botany?"
  141. 282 data "[158]nice landscape shot..."
  142. 284 data "do you leave the cap on, too?"
  143. 286 data "i hear the enquirer is hiring..."
  144. 288 data "[158]maybe you should try aiming...."
  145. 290 data "[158]ah, back to normal..."
  146. 292 data "[144]uh, huh..."
  147. 294 data "[151]maybe i'll hire the monkey..."
  148. 296 data "[151]i don't want to know..."
  149. 298 data "you really like those, don't you?"
  150. 300 data "ok, enough already!"
  151. 302 open15,8,15:open2,8,2,"0:ss.hi,s,r":input#15,j
  152. 304 ifj=.thenfori=.to9:input#2,n$(i):input#2,h(i):next
  153. 306 close2:close15:return
  154. 308 poke53280,.:poke53281,.
  155. 310 printchr$(14)"[147]  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][